home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 128 / Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_107 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  506b  |  11 lines
  1. 1 s=54272:pokes+24,15:pokes+5,9:pokes+6,240:pokes+4,17
  2. 5 poke53280,.:poke53281,.:printchr$(147):poke53265,80:fora=2to18:pokes,168
  3. 6 print"       [197][206][196][197]        ":poke53284,c:pokes+4,16
  4. 8 print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:poke53282,14*rnd(1)+14:nexta
  5. 25 forc=4to17:pokes+4,c:poke646,c:pokes+4,29
  6. 29 print"       [197][206][196][197]        [145]":poke53284,c:pokes+4,16
  7. 33 poke53282,peek(53283):poke53283,peek(c):nextc:pokes+4,17:pokes+4,29
  8. 34 ford=1to12:pokes+1,d:next:pokes+4,16
  9. 35 poke56325,1:print"lukian":poke56325,55:fort=1to300:next
  10. 36 pokes+4,129:ford=1to15:pokes+4,128:next :sys2048
  11.